home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / TOOLS / EVOL202A.ZIP / MULTIPLY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-28  |  378 b   |  13 lines
  1.   Unit Multiply;
  2.     interface
  3.       Function MultiplyTwoNumbers(OneNumber : Integer;AnotherNumber : Integer) : Integer; 
  4.     implementation
  5.       Function MultiplyTwoNumbers(OneNumber : Integer;AnotherNumber : Integer) : Integer;
  6.         begin
  7.           MultiplyTwoNumbers :=
  8.             OneNumber* 
  9.             AnotherNumber;
  10.           end;
  11.       begin
  12.       end.
  13.